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i] 

: FACILITY: Miscellaneous utilities 

i ABSTRACT: 
This module contains routines to restore the user's environment to 
the same as it was before the editing session gegen (unneeded files 
are deleted, Seratant characteristics reset, etc 

i ENVIRONMENT: 


VAX/VMS operating system, user mode utilities. 


4 
2 BEGIN 
4 _ypeaeenanee specie aumgen ceca eae perenne 
‘ 'e * 
'@ COPYRIGHT (c) 1978, 1980, 1982, 1984 B * 
1 1 '® DIGITAL EQUIPMENT T CORPORATION, MAYNARD. MASSACHUSETTS. ® 
i 1 i ALL RIGH S RESERVED. -~ 
ig 1 it ne fo 'kcck IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED 
14 1 Hl ACCORDANCE WITH THE TERMS OF rate LICENSE WITH THE * 
15 1 se 65 l OF THE ABOVE COP heen NOTICE. SOFTWARE OR ANY OTHER * 
18 1 'e COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MA MADE AVAILABLE Tl! ANY * 
1 1 al RSON. TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
18 ; i; TRANSFERRED. * 
' * 
0 il He INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
1 e SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 
¢ CORPORA TION. 7 
& i DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF IjtS * 
é . SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 
3 | eeenneseneneceneeqqnuesecnsecseeresenccenscercenqqqncnneencoseneqneneeseoess 
0 
4 
5 


i AUTHOR: L. Mark Pilant CREATION DATE: 12-Nov-1982 9:50 
i MODIFIED BY: 
v03-004 LMP0213 Mark Pilant 24-Mar-1984 12:23 
Add support for ock ng and unlocking the object's ACL. 
v03-003 iyretre L. Mark Pilant, 28-Nov-1983 12:11 


ous bug fixes support for VT2xx terminals, and a 
session heystroke logger Pe 


eB 8 ee ae eB Bh ed a ek dh SOOO 
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NOUS WI (OC OO NOUES WN O00 


OMI BEER RRR E 


nEDSLE ANUP PPedeo-t9ee ERTHIS  YaHCH! Lingasz v4noeree, | age (2 


3 H H 1! v03-002 peers t Mark Pilant, 25-Aug-1983 10:18 
: ! : Leave keypad app ication mode on if it was on initially. 

: 61 1 v03-001 LMPOO76 L. Mark Pilant, 10-Feb-1983 15:36 
3 $6 } } Reset the scrolling region upon leaving the editor. 

64 1 ive 

; 665 5 1 

: 66 1 LIBRARY ‘SYSS$LIBRARY:LIB.L32'; 

; «67 1 LIBRARY ‘SYSSLIBRARY: TPAMAC.L32'; 

3 68 0068 1 REQUIRE "SRCS:ACLEDTDEF '; 


vOes000 NP if: “Seo 1944 $1353 REED SRE AES cL bide’ 682.1 Pee 635 


3 } FORWARD ROUT Ne 

: } AED_CLEANUP : NOVALUE; ! Reset screen characteristics 
BS. 4 1 EXTERNAL ROUTINE 

:; 6% > 2 AED_SET_CURSOR, ' Set cursor position 

oe 6 1 AED-PUTOUTPUT; i Do terminal output 
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AEDSELE ANUP HE-$epn1964 28:57:35 yanett alieg-32 v4.on74g Pages 
GLOBAL ROUTINE AED_CLEANUP : NOV/LUE = 


tee 
i 


FUNCTIONAL DESCRIPTION: 

i This routine sets the scope characteristics back to nerae} This 
means: (1) the normal keypad and Ch no scrolling region if any. 
If the terminal is not a scope, this routine is a no-op. 


i CALLING SEQUENCE: 
AED_CLEANUP () 


i INPUT PARAMETERS: 
H none 


i IMPLICIT INPUTS: 
} AED_W_TERMIN: terminal input channel 
AED_W_TERMOUT: terminal output channel 


1 
! 
! 
1 
' 
' 
| 
a) 
i 
i] 
1 
t 
' 
1 
! OUTPUT PARAMETERS: 
: none 
! 
! 
J 
A 
: 
' 
| 
1 
' 
f 
1 
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SOSFUSUSUSUSUSUSUSUSUSUSIOSISIOSIOSIOSIOSIOSIOIO 
NOUS WN OCO wr 


PREP PLP EE 


is 

330 i IMPLICIT OUTPUTS: 

33 ! none 

5 ; i ROUTINE VALUE: 

228 ! none 

336 i SIDE EFFECTS: 

55 ) Keypad is set back to its normal functions 

b238 2) Scrolling region, if any, is set to include the entire screen 

5 oo 

5 

5 

LOCAL 

TERM_CHAR : VECTOR (3), ! Terminal characteristics 
LOCAC_10S8 : VECTOR (4,WORD), !' 1/0 Status block 
LOCAL STATUS; ! Routine exit status 


! Check to make sure the terminal is a scope. 
IF NOT .AED_L_FLAGSCAED_V_SCOPE] THEN RETURN 1; 
! Set terminal wrapping if necessary. 

IF .AED_L_FLAGSCAED_V_WRAPJ 

THEN 


UMWEUIN—O 


VERRAN VS SHVenrav=SSSVEGRENLSSSLESSLIVLSSSLFALATLSISV 
> 


BEGIN 
LOCAL_STATUS = $Q10W (CHAN = Ago W_TERMOUT, 
FUNC = 10$_SERSEMODE, 
10SB = LOCAL_10SB8, 
Pl = TERM CHAR); 
IF .LOCAL_STATUS THEN LOCAL STATUS = ,LOCAL_10SB{0); 
IF NOT .LOCAL_STATUS THEN STGNAL (.LOCAL_STATUS); 


vvv 
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ago EANUP fB-$eon196s 25:57:15 YN) oLienas2 v4-o-74g age 
TSM_WRAP: 


TERM_CHARC1) = .TERM_CHARC1) OR T 
P UBeac etatus > $af0u" (CHAN = AED w_TERMOUT, 
P FUNC = 10$_ SETMODE, 
P 1086 = LOCAL . 
Pl = TERM_CHAR); 
IF .LOCAL_STATUS THEN LOCAL_STATUS = LOCAL 10$B8(0); 
HEN SIGNAL (.LOCAL STATUS); 


af NOT .LOCAL_STATUS T 
ND; 


! Reset the keypad, if necessary. 

con oAED_L_FLAGSCAED_V_APPLICAT] 
BEGIN 
LOCAL STATUS = AED PUTOUTPUT (SDESCRIPTOR (ZCHAR (AED_C_CHAR_ESC), ‘>')); 
nwt eLOCAL_STATOS THEN SIGNAL (.LOCAL_STATUS); 

! Reset the scrolling region. 

SCRSSET_SCROLL (1, 24); 

AED_SET_CURSOR (23, 1); 

RETURN 1; 

END; ! End of routine AED_CLEANUP 


et st ts 2 = La = 2 SS ss 


FUP SUSVSUSISISIIII EB I 
SSSVFUF UNS SSS STS ESS 
- 


TITLE AEDSCLEANUP 

“IDENT \V04-000\ 

-PSECT AED COMMON,NOEXE, OVR,O 
00000 AED_L_FLAGS: 
00004 AED_B_OPTIONS: 

-BLKB 
900 5 “BLKB 

AED_L_OBJTYP: 

0000C AED_Q_OBJNAM: 

-BLKB 
00014 AED_L_WORSTERR: 
00018 AED_L_PAGEWIDTH: 
0001C AED_L_PAGESIZE: 


00020 AED _B_ COLUMN: 
LKB 


80054 neo.o..tie 


ae 
$8858 AED_B. SAVE COL: 
.BCKB. 1 


Ww we FF FO fF we 


voe=06 1 ont9y 44:50:28 ERCLEDr®$RESaebcLEMuP-682,1 
se neo _B.SAVE LIN: © 


$0080 AED.Q ite 


LKB 
0003¢ AED.L_cURAtE: 
00040 AED_L “F1gTUINE: 
00044 AED_L_LAS LINE: 
00048 AED_L_BEGINLINE: 
-BLKB 
0004C¢ cca 1 we 


$0086 AED_Q pet het 


LKB 
00058 AED_Q_DEL en 
00060 AED_Q_DEL WORD: 


LK 
00068 AED_B_DEL CHAR: 
0069 , 


“BLKB 
006C asthenia" “pee 
00070 AED_@ -OUTLINE: 
00078 AED_W_OBJCHAN: 
007 “BLKB 
Boore AED_W_TERMIN: 
-BLKB 


007 -BLKB 
0080 AED_W_TERROUT 
-BLKB 


00 
$008 
LKB 
0008¢ AED_L_STATUS: 
00090 AED_B_FIELD: 
-BLKB 


90091 “BLKB 
94 AED_W_FIELDBEG: 


-BLKB 
$6098 NED _W_FIELDENO: 
ti AED_8_ i 


ee 
AO AED_W_ITEMBEG: 
-BLKB 


RR RR RN RN RU oN RR RR Oe 


nEDSCL ANUP YbeSeo-t9ee @ERTHI5 panels ol tegasz ven o7eg 
any AED_W_ 1TEREND: . 


eo ee 


BO0AC AED_W JOURNAL : 


$6085 nent cue ine 
002C4 AED_W_TOTALSIZE: 


BLK 3 
poste -BLKB 
C8 JOURNAL_FAB: 
00318 JOURNAL NAR 96 
00378 JOURNAL_RAB: 
0038C JOURNAL_XABPRO: 


00414 JOURNAL BUFFER: 


5 
2 


$0626 JOURNAL INDEX: 
00424 RECOVER_FAB: 
00474 RECOVER_NAM: 
00404 RECOVER_RAB: 
00518 RECOVER_BUFFER: 


00532 “BLKB 

4 RECOVER_INDEX: 
~-BLKB 
ePSECT SPLITS,NOWRT,NOEXE,2 

18 P.AAB: .ASCII <27> 

E >\ 


38800806" — ONG. 2, AAB 


.EXTRN atta? VALUE, CLISPR 

"EXTRN OL EE VM, LIBSGET_ 
ie 418 BSTPARSE, ent DOWN SCROLL 
: ut OR, Hd SCROLL 


ae F akin Ait atie 


EX 
-EXTRN DST JOUWRITERR 


-~ 
z 


nEDSEL ANUP HicBeo-190e @EHZSIS YMC HT oLtenzz ve.ocreg, | Page 


-EXTRN AED$_JOUOPENOUT 
SEXTRN AED =JOUCLOSOUT 

SEXTRN AED =RE READERR 

SEXTRN AEDS$-RECOPENIN, AEDS RECLOSEIN 
eEXTRN D =BADUIC. d$ BA Apenene 

SEXTRN AED$-SYN AX 0$7B "Peo 
-EXTRN AEDS_NOITEMS Ls AEDS. mus ENTER 
“EXTRN AED “NLOPENT N, AEDS INICLOSIN 
SEXTRN AEDS-DEFSYNTAX, AEDS NODELETE 
“EXTRN AEDS-NOMODIFY, AEDS ROHIDDEN 
SEXTRN AED$-DUP CATE, AEDS_NOCOMBINE 
sEXTRN AEDS-NODEFAULT, AEDS-NOCTRLCHAR 
SEXTRN AEDS$-NOT AEDS_CONTROL_C 
;EXTRN AEDS-ACLUPDATED 

“EXTRN AEDS" NOCHAN ce. AED SET_CURSOR 
eEXTRN AED _PUTOUTPU YS$ai00 

EXTRN ATBSSiGNAL 


-PSECT SCODES,NOWRT,2 


OOF .ENTRY AED CLEANUP, Save R2,R3,R4,R5,R6,R7 : 

? 9000 6 9E MOVAB SYSSQIOW RP : 

: 0 6 3 MOVAB Press : 

2 bopooopos 3 MOVAR | SERSGE ee: 2 : 

3 8005° CF 9 HOV A p am : 

36 14 ¢ SUBL #0 ; 

01 6 03 6 BBS YB L pees 1$ ; 
03 63 04 9 1$: BBS #4, AED_L_FLAGS, 2$ : 
oocs BRW 10$ ; 

— 7C 23 CLRQ ss = (SP) ; 

7E 7 CLRQ 0s = (SP) : 

7E D4 CLRL ss = (SP) : 

1¢ AE fF PUSHAB Mir CHAR 3 

7E 7C CLRQ ~ 3 

20 AE OF LOCAL _10SB : 

2? OD PUSHL @# : 

7E 0080 c3 ¢ MOVZWL AED_W_TERMOUT, -(SP) : 

E 04 CLRL. - =(S$P)~ ; 

6? F 9 CALLS #12, SYSS$Q10W F 

2 D C MOVL RO LOCAL STAT : 

: ; BLBC _— LOCAL_STATUS, 3 

MOVZWL LOCAL 1088. gt OGAt STATUS ; 

¢ E BLBS CALE STA : 

OE é a 3$ BBC AED_L Pekes. 4$ : 
1 DD C PUSHL it ; 

DD PUSHL 4 1 ; 

55 FB CALLS » SCRSERASE_PAGE : 

iy) PUSHL ; ; 

DD PUSHL #21 : 

64 FB CALLS @ eascessete CURSOR ; 

Nyy 4$ PUSHL LOCAL : 

66 FB CALLS , LTBSSI : 

08 BBC y DL FLAGS, 5$ ; 
. 30 AS 9A MOVZBL AEO_B_COLOMN, -(sP) ; 

7E 4 AS 9A MOVZBL AED"B”LINE, -(SP) : 


° 
® 
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#2. SCRSSET ae 

EaL_STATUS, # 


, #3, LOCAL_STATUS, RO 
, #3, AED_L-WORSTERR, RO 


LOCAL STATUS, AED_L_WORSTERR 
#3, TERR. CHARos er" 


58: 


o 
= 


-(SP) 


nn = 
on 


LOgAL_10S8 
Meg FERMOUT. -(SP) 


WINE NOMS NPN INOMOOO—"100 


L_STATUS, 

OCAL_10SB, ag yageeen 

* STATUS, 10 
» AED_L_FLAGS, 8$ 


#21 

#2, SCRSERASE_PAGE 
#i 

Ah 
Lo¢ 
As 
Ki 
ry 
< 


SCRSSET_CURSOR 
AL_ STATUS 
IGNAL 
8 » =(SP 
“8 =(SP) 
§ a CURSOR 
AL_STATUS, # 


¥ a3. LOCAL_STATUS, RO 
#0, #3, AED_L“WORSTERR, RO 


LOCAL_STATUS, AED_L_WORSTERR 
#6, AED_L_FLAGS*+2; T3$ 


P 
#1, AED_PUTOUTPUT 


R TAT 
Poeat StATOS. tas 
#3, AED_L_FLAGS, 118 


MOF POOuMoO—-Co— 


6 
: 
: 
: 
: 


om=—m 
NOOO 


mmown 


SCRSERASE _PAGE 


—_ = = 


SCRSSET_CURSOR 
wt STATUS 


; AED ans 12$ 
AE6_B_COLOMN, -(sP) 


z2ar~ 222aae 
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DSCLEANUP 1$-50 -1984 23:37: AX-11 Bliss-32 v4. P 0 
ye 7000 ~3een 38S 99:85:33 ceinio er B82;1 age 18 
7 26 ad 9A 001 MOVZBL ADB LINE -(SP) : 
FB 001 CALLS “st F gcuRsOR : 
? 93 0018s 128: BIT ii STATU ; 
5 F 001 EXTZV LOCAL_STATUS F 
20 14 8 8 0 i bh + ie AED_L ~BoRSTERR. °n0 : 
14 =A3 DO 00146 MOVL § LOCAL_STATUS, AED_L_WORSTERR : 
gp ggice 13: uae Bee 
000000006 00 FB 0014 CALLS a SCRSSET_SCROLL ; 
3 SiR fds i 
00006 CF 02 FB 00159 CALLS ‘5° AED_SET_CURSOR F 
04 0015 RET + 0610 
3; Routine Size: 351 bytes, Routine Base: S$CODE$ + 0000 
: 161 0611 
; 16@ 061¢ ND 
; 16 0613 0 ELUDOM 
3 PSECT SUMMARY 
3 Name Bytes Attributes 
: AED_COMMON 1329 NOVEC, WRT, RD ,NOEXE,NOSHR, LCL, REL, OVR,NOPIC,ALIGN(O) 
> SPLITS 12 NOVEC,NOWRT, RD ,NOEXE,NOSHR, LCL, REL, CON.NOPIC ALIGN‘) 
> SCODES 351 NOVEC.NOWRT, RD. EXE-NOSHR. LCL. REL. CON,NOPIC,ALIGN(O) 
: Library Statistics 
; emsanses Syehel§ ccoesoo= Pages Processing 
: File Total areca: Percent Mapped Time 
3 _$255$DUA28:(SYSLIBILIB.L32;1 18619 28 1000 :01, 
: “See e StU ASesESYSt IBITPARAG L325 42 0 § 14 $0 :9073 


COMMAND QUALIFIERS 
: BLISS/CHECK=(FIELD, INITIAL OPTIMIZE)/LIS=LIS$: AEDCLENUP/OBJ=0BJ$:AEDCLENUP MSRCS$:AEDCLENUP/UPDATE=(ENHS: AEDCLENUP) 
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s/CPU Min: 
Lexenes/CPU-Rin: 
Memor 


Compilation: rena pases 


Size: ; 1332 data bytes 
Run Time 
Elapsed Tine: “as 


NT CORPORATION — 


War vaxvuee va D PROPRIETARY 
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